home *** CD-ROM | disk | FTP | other *** search
/ Best of Blender - The Int…e Entertainment Magazine / The Best of Blender Magazine.ISO / pc / blender / files / tarot.dir / 00018.ls < prev    next >
Encoding:
Text File  |  1996-05-01  |  384 b   |  16 lines
  1. on exitFrame
  2.   global gList
  3.   set sum to count(gList)
  4.   if sum then
  5.     set i to random(sum)
  6.     set x to getAt(gList, i)
  7.     deleteAt(gList, i)
  8.     set myLine to line x of field "fortuneText"
  9.     delete char 1 to 3 of myLine
  10.     set name to the text of field "Name"
  11.     set problem to the text of field "Problem"
  12.     revealFortune(name, problem, myLine)
  13.     go("A" & x)
  14.   end if
  15. end
  16.